-- card: 5792 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 3493
-- name: All Regions
----- HyperTalk script -----
-- Script of card "All Regions"

on GetDataForCard cardName
  --{ Hide the following for display:
  global connectMode
  if connectMode = "Simulation" then
    S_GetDataForCard cardName
    exit GetDataForCard
  end if
  --}
  --put "select manager,quota_ytd,sales_ytd,office_nr,city,region" &&
  --"from offices order by office_nr desc; " into query
  put "select manager,quota_ytd,sales_ytd,office_nr,city,region" && "from offices order by office_nr; " into query
  put "2,3,4,5,6,7" into fieldsToFill
  put the short name of me into cardName
  PutDataInFields query, fieldsToFill, cardName
end GetDataForCard


--{ Hide the following for display:
on S_GetDataForCard cardName
  --for the simulation mode:
  put "offices" into tableName
  put "manager,quota_ytd,sales_ytd,office_nr,city,region" into fmFields
  put "2,3,4,5,6,7" into toFields
  if cardName is empty
  then put the short name of this card into cardName

  put "select" && fmFields && "from" && tableName && "order by office_nr descending; " into s_query

  S_PutDataInFields s_query,tableName, selectedRecords(tableName,"office_nr"),fmFields,toFields,cardName
end S_GetDataForCard

function selectedRecords tableName,keyFieldName
set lockScreen to true
set lockMessages to true
push card card
go card tableName
get number of lines of card field keyFieldName
repeat with i = 1 to it
  --select all records whose key field is not empty
  if line i of card field keyFieldName <> empty then
    put i & "," after recordList
  end if
end repeat
put empty into last char of recordList

pop card
set lockScreen to false
set lockMessages to false
return recordList
end selectedRecords

--}



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=8 top=7 right=31 bottom=31
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual wipe right
  go prev
end mouseUp



-- part 20 (field)
-- low flags: 80
-- high flags: 2004
-- rect: left=16 top=62 right=260 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card Script
----- HyperTalk script -----
on doSelect
  put the mouseV into theClick
  put textHeight of me into lineHeight
  put rect of me into window
  put item 1 of window into left
  set the lockText of me to false
  click at left, theClick
  click at left, theClick + lineHeight with shiftKey
  if the selection is not empty then
    repeat until return is in the selection
      add lineHeight to theClick
      click at left, theClick + lineHeight with shiftKey
    end repeat
  end if
  --set the lockText of me to true
end doSelect



-- part 24 (field)
-- low flags: 81
-- high flags: 2000
-- rect: left=19 top=62 right=257 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card Script Mask
----- HyperTalk script -----
on mouseUp
  send doSelect to card field "Card Script"
end mouseUp



-- part contents for background part 1
----- text -----
Data for All Regions

-- part contents for background part 6
----- text -----
manager

-- part contents for background part 7
----- text -----
quota

-- part contents for background part 8
----- text -----
sales

-- part contents for background part 9
----- text -----
percent

-- part contents for background part 16
----- text -----
office_nr

-- part contents for background part 17
----- text -----
city

-- part contents for background part 18
----- text -----
region

-- part contents for background part 26
----- text -----
status

-- part contents for card part 20
----- text -----
-- Script of card "All Regions"

on GetDataForCard
  put "select manager, quota_ytd, sales_ytd, office_nr, city, region from offices order by office_nr descending; " into query
  put "2,3,4,5,6" into fieldsToFill
  put the short name of me into cardName
  PutDataInFields query, fieldsToFill, cardName
end GetDataForCard




-- part contents for background part 33
----- text -----
select manager,quota_ytd,sales_ytd,office_nr,city,region from offices order by office_nr descending; 

-- part contents for background part 5
----- text -----
114.7,104.3,101.1,82.5,94.6,102.8

-- part contents for background part 2
----- text -----
300,200,800,

-- part contents for background part 3
----- text -----
760000.00,295000.00,638000.00,

-- part contents for background part 4
----- text -----
872446.36,307700.06,

-- part contents for background part 10
----- text -----
105,110,

-- part contents for background part 11
----- text -----
NewYork,Washington,

-- part contents for background part 12
----- text -----
Eastern,Eastern,